home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / YES!_100s_52412222002.psc / PlayWAV 32.bas < prev    next >
Encoding:
BASIC Source File  |  1998-08-14  |  361 b   |  17 lines
  1. Attribute VB_Name = "Module1"
  2. ' WAVE Playing Sub for 32 bit VB
  3. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  4.  
  5.  
  6.  
  7.  
  8. Public Sub Play(FileName)
  9. 'Play Sound Asynchronously (SND_ASYNC = &H1)
  10. 'To stop playing a sound call PLAY ""
  11.  
  12. sndPlaySound FileName, &H1
  13.  
  14. End Sub
  15.  
  16.  
  17.